home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LImacSTACK11⁄89.cpt / LImacSTACK.11_89 / background_18347.txt < prev    next >
Text File  |  1989-11-02  |  4KB  |  170 lines
  1. -- background: 18347 from stack: in.11_89
  2. -- bmap block id: 18900
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: ResAudit Bg
  6.  
  7.  
  8. -- part 2 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=382 top=299 right=320 bottom=404
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 4465 / 4465
  14. -- text alignment: 1
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: Index
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   push cd
  23.   visual barn door close to black
  24.   visual barn door open
  25.   go cd "LImacSTACK index"
  26. end mouseUp
  27.  
  28.  
  29.  
  30. -- part 3 (button)
  31. -- low flags: 00
  32. -- high flags: 0000
  33. -- rect: left=403 top=300 right=320 bottom=428
  34. -- title width / last selected line: 0
  35. -- icon id / first selected line: 25234 / 25234
  36. -- text alignment: 1
  37. -- font id: 0
  38. -- text size: 12
  39. -- style flags: 0
  40. -- line height: 16
  41. -- part name: Multi-Prev
  42. ----- HyperTalk script -----
  43. on mouseDown
  44.   visual scroll right
  45.   go to prev cd of this bg
  46.   put the ticks into tickHolder
  47.   repeat until (the mouse is up)
  48.     if (the ticks - tickHolder) > 30
  49.     then
  50.     go to prev cd of this bg
  51.     put the ticks into tickHolder
  52.   end if
  53. end repeat
  54. end mouseDown
  55.  
  56.  
  57.  
  58. -- part 4 (button)
  59. -- low flags: 00
  60. -- high flags: 0000
  61. -- rect: left=423 top=300 right=320 bottom=449
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 2749 / 2749
  64. -- text alignment: 1
  65. -- font id: 0
  66. -- text size: 12
  67. -- style flags: 0
  68. -- line height: 16
  69. -- part name: Multi-Next
  70. ----- HyperTalk script -----
  71. on mouseDown
  72.   visual  scroll left
  73.   go to next cd of this bg
  74.   put the ticks into tickHolder
  75.   repeat until (the mouse is up)
  76.     if (the ticks - tickHolder) > 30
  77.     then
  78.     go to next cd of this bg
  79.     put the ticks into tickHolder
  80.   end if
  81. end repeat
  82. end mouseDown
  83.  
  84.  
  85.  
  86. -- part 5 (button)
  87. -- low flags: 00
  88. -- high flags: 0000
  89. -- rect: left=445 top=298 right=320 bottom=474
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 6721 / 6721
  92. -- text alignment: 1
  93. -- font id: 0
  94. -- text size: 12
  95. -- style flags: 0
  96. -- line height: 16
  97. -- part name: Return
  98. ----- HyperTalk script -----
  99. on mouseUp
  100.   visual iris close to grey
  101.   visual iris open
  102.   pop cd
  103. end mouseUp
  104.  
  105.  
  106.  
  107. -- part 6 (button)
  108. -- low flags: 00
  109. -- high flags: A003
  110. -- rect: left=25 top=231 right=257 bottom=148
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 0 / 0
  113. -- text alignment: 1
  114. -- font id: 0
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 16
  118. -- part name: Resource Lister
  119. ----- HyperTalk script -----
  120.  
  121. --This button uses the XFCN resAudit
  122. --This button uses the XFCN FileName
  123. on mouseUp
  124.   set scroll of fld "ResList" to 0
  125.   put "List Resources of which stack? (Cancel = this stack)"
  126.   get fileName("STAK")
  127.   if it is empty then
  128.     go this cd
  129.     set cursor to 4
  130.     put the short name of this stack into fld "WhichStack"
  131.     put resAudit() into field "ResList"
  132.   else
  133.     go this cd
  134.     set cursor to 4
  135.     put it into resStack
  136.     put the short name of resStack into fld "WhichStack"
  137.     put resAudit(resStack) into field "ResList"
  138.   end if
  139.   hide msg
  140. end mouseUp
  141.  
  142.  
  143.  
  144. -- part 7 (field)
  145. -- low flags: 00
  146. -- high flags: 2004
  147. -- rect: left=181 top=38 right=64 bottom=479
  148. -- title width / last selected line: 0
  149. -- icon id / first selected line: 0 / 0
  150. -- text alignment: 1
  151. -- font id: 0
  152. -- text size: 12
  153. -- style flags: 0
  154. -- line height: 16
  155. -- part name: WhichStack
  156.  
  157.  
  158. -- part 8 (field)
  159. -- low flags: 00
  160. -- high flags: 2007
  161. -- rect: left=182 top=71 right=289 bottom=477
  162. -- title width / last selected line: 0
  163. -- icon id / first selected line: 0 / 0
  164. -- text alignment: 0
  165. -- font id: 3
  166. -- text size: 12
  167. -- style flags: 0
  168. -- line height: 16
  169. -- part name: ResList
  170.